program trabalho01;

uses
	crt;
const
    LINHAS  = 3;
    COLUNAS = 3;
var
	mat: array of [1..LINHAS, 1..COLUNAS] of integer;
    op: char;
    i, j: integer;
begin
	clrscr;
    repeat
    	writeln('1 - Inserir Elementos         ');
        writeln('2 - Excluir por Posicao       ');
        writeln('3 - Exibir Diagonal Principal ');
        writeln('4 - Exibir Matriz             ');
        writeln('5 - Finalizar                 ');
        op := readkey;

        case op of
        	'1':
            	begin
                	for i := 1 to 3 do
                    begin
                    	clrscr;
                        writeln('Elementos da linha ', i);
                        writeln('---------------------------------------');
                        for j := 1 to 5 do
                        begin
                        	write('   Coluna: ', j);
                            readln(mat[i, j]);
                        end;                        	
                    end;
                end;
            '2':
            	begin

                end;
            '3':
            	begin

                end;
            '4':
            	begin

                end;
            '5': writeln('... Fim!');
        end;

    until op = '5';

end.
